home *** CD-ROM | disk | FTP | other *** search
/ Temic Semiconductors Tech…al Library 1997 February / Temic Semiconductors Technical Library - 1997 February.iso / TEMIC2.DIR / 00003_Script_3 < prev    next >
Text File  |  1997-03-18  |  5KB  |  167 lines
  1. on exitFrame
  2.   global allpdflist, allpartslist, uselist, working, myCursor
  3.   
  4.   set allpdflist = []
  5.   set allpartlist = []
  6.   set allfeat1list = []
  7.   set allfeat2list = []
  8.   set partlist = EMPTY
  9.   puppetsprite 1, true
  10.   puppetsprite 2, true
  11.   puppetsprite 3, true
  12.   puppetsprite 4, true
  13.   puppetsprite 5, true
  14.   puppetsprite 6, true
  15.   puppetsprite 7, true
  16.   puppetsprite 8, true
  17.   puppetsprite 9, true
  18.   puppetsprite 10, true
  19.   puppetsprite 11, true
  20.   puppetsprite 12, true
  21.   puppetsprite 13, true
  22.   puppetsprite 14, true
  23.   puppetsprite 15, true
  24.   puppetsprite 16, true
  25.   puppetsprite 17, true
  26.   puppetsprite 18, true
  27.   puppetsprite 19, true
  28.   puppetsprite 20, true
  29.   puppetsprite 21, true
  30.   puppetsprite 22, true
  31.   puppetsprite 23, true
  32.   puppetsprite 24, true
  33.   puppetsprite 25, true
  34.   puppetsprite 26, true
  35.   puppetsprite 27, true
  36.   puppetsprite 28, true
  37.   puppetsprite 29, true
  38.   puppetsprite 30, true
  39.   puppetsprite 31, true
  40.   puppetsprite 32, true
  41.   puppetsprite 33, true
  42.   set the visible of sprite 1 to true
  43.   set the visible of sprite 2 to true
  44.   set the visible of sprite 3 to true
  45.   set the visible of sprite 4 to true
  46.   set the visible of sprite 5 to true
  47.   set the visible of sprite 6 to true
  48.   set the visible of sprite 7 to true
  49.   set the visible of sprite 8 to true
  50.   set the visible of sprite 9 to true
  51.   set the visible of sprite 10 to true
  52.   set the visible of sprite 11 to true
  53.   set the visible of sprite 12 to true
  54.   set the visible of sprite 13 to true
  55.   set the visible of sprite 14 to true
  56.   set the visible of sprite 15 to true
  57.   set the visible of sprite 16 to true
  58.   set the visible of sprite 17 to true
  59.   set the visible of sprite 18 to true
  60.   set the visible of sprite 19 to true
  61.   set the visible of sprite 20 to true
  62.   set the visible of sprite 21 to true
  63.   set the visible of sprite 22 to true
  64.   set the visible of sprite 23 to true
  65.   set the visible of sprite 24 to true
  66.   set the visible of sprite 25 to true
  67.   set the visible of sprite 26 to true
  68.   set the visible of sprite 27 to true
  69.   set the visible of sprite 28 to true
  70.   set the visible of sprite 29 to true
  71.   set the visible of sprite 30 to true
  72.   set the visible of sprite 31 to true
  73.   set the visible of sprite 32 to true
  74.   set the visible of sprite 33 to true
  75.   puppetSprite 1, false
  76.   puppetSprite 2, false
  77.   puppetSprite 3, false
  78.   puppetSprite 4, false
  79.   puppetSprite 5, false
  80.   puppetSprite 6, false
  81.   puppetSprite 7, false
  82.   puppetSprite 8, false
  83.   puppetSprite 9, false
  84.   puppetSprite 10, false
  85.   puppetSprite 11, false
  86.   puppetSprite 12, false
  87.   puppetSprite 13, false
  88.   puppetSprite 14, false
  89.   puppetSprite 15, false
  90.   puppetSprite 16, false
  91.   puppetSprite 17, false
  92.   puppetSprite 18, false
  93.   puppetSprite 19, false
  94.   puppetSprite 20, false
  95.   puppetSprite 21, false
  96.   puppetSprite 22, false
  97.   puppetSprite 23, false
  98.   puppetSprite 24, false
  99.   puppetSprite 25, false
  100.   puppetSprite 26, false
  101.   puppetSprite 27, false
  102.   puppetSprite 28, false
  103.   puppetSprite 29, false
  104.   puppetSprite 30, false
  105.   puppetSprite 31, false
  106.   puppetSprite 32, false
  107.   puppetSprite 33, false
  108.   cursor 4
  109.   set the text of cast "allparts" to EMPTY
  110.   go to frame "prod_search2"
  111.   
  112.   set gDB = 0
  113.   set gtable = 0
  114.   set V12dbeFact = Xtra "V12dbe"
  115.   set V12tableFact = Xtra "V12table"
  116.   put the pathname into thefile
  117.   put "database\" after thefile
  118.   put "allparts.v12" after thefile
  119.   set gDB = New(V12dbeFact, thefile, "readonly", "")
  120.   if  NOT ObjectP(gDB) then alert "Could not create Xtra instance"
  121.   
  122.   
  123.   set gtable = New(V12tableFact, mGetRef(gDB), "table")
  124.   if NOT (ObjectP(gtable)) then
  125.     alert "Could not create table insatnce"
  126.   end if
  127.   mGoFirst(gtable)
  128.   set maxRec = mSelectCount(gtable)
  129.   repeat with i = 1 to maxRec
  130.     put mGetField(gtable, "file") into pdffile
  131.     add allpdflist, pdffile
  132.     put mGetField(gtable, "partnumber") into partnumber
  133.     put mGetField(gtable, "feature1") into feature1
  134.     put partnumber  after allpartslist
  135.     if length(partnumber) < 25 then
  136.       repeat with a = length(partnumber) to 25
  137.         put " " after allpartslist
  138.       end repeat
  139.     end if
  140.     
  141.     put feature1 & RETURN after allpartslist
  142.     mGoNext(gtable)
  143.     
  144.   end repeat
  145.   
  146.   set the text of cast "allparts" to allpartslist
  147.   set uselist = "all"
  148.   set gDB = 0
  149.   set sales = 0
  150.   cursor -1
  151.   
  152.   set the cursor of sprite 3 to myCursor
  153.   set the cursor of sprite 21 to myCursor
  154.   set the cursor of sprite 22 to myCursor
  155.   set the cursor of sprite 24 to myCursor
  156.   set the cursor of sprite 25 to myCursor
  157.   set the cursor of sprite 26 to myCursor
  158.   set the cursor of sprite 27 to myCursor
  159.   set the cursor of sprite 28 to myCursor
  160.   set the cursor of sprite 31 to myCursor
  161.   set the cursor of sprite 32 to myCursor
  162.   set the cursor of sprite 33 to myCursor
  163.   set the cursor of sprite 20 to 1
  164.   set the cursor of sprite 29 to 1
  165.   
  166.   
  167. end